-- background: 4410 from stack: in.0
-- bmap block id: 4680
-- flags: 4000
-- background id: 0
-- name: Info card
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground


-- part 6 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=402 top=5 right=31 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=435 top=5 right=31 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=466 top=5 right=32 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect dissolve slow to white
  visual effect dissolve slow
  go to card id 2998
end mouseUp


-- part 10 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=84 top=3 right=31 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search for Date
----- HyperTalk script -----
on mouseDown
  ask "What date would you like?"
  put 5 into lag
  put "1,2,3,4" into seq
  repeat with n = 1 to the number of items in seq
    set cursor to "HGls." & item n of seq
    wait 10
  end repeat
  find it in background field "The Date"
end mouseDown


-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=45 top=5 right=33 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  domenu new card
end mouseUp



-- part 13 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=37 top=56 right=135 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 104
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: On this date in History


-- part 14 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=127 top=4 right=31 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: The date


-- part 16 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=37 top=163 right=242 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 104
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today's Birthdays


-- part 17 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=37 top=269 right=336 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 104
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thought for the day.


-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=316 top=5 right=31 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find a Topic
----- HyperTalk script -----
on mouseUp
  domenu "Find..."
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=3 right=33 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 17617 / 17617
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  PrintField "bkgnd field ID 13",0,72,72,72,72
  PrintField "bkgnd field ID 16",0,72,72,72,72
  PrintField "bkgnd field ID 17",0,72,72,72,72
end mouseUp